Top 10k strings from Racing Manager (1983)(Virgin Games)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
6 MEETING=25
5 CLASS*4000
5 (MEETING/9
5 (MEETING/7
4 F(SECOND,1
4 *a)+((r$(c,1
3 S(L(A,SECOND),3
3 ;": VALUE `";L(A,13
3 ;" AND ";CLASS+2
3 ,,,,,,,,,,
3 ))+(L(A,13
2 racing
2 do>class-2
2 do<class+2
2 S(H(HORSE,1
2 PRIZE MONEY =PRIZE MONEY+L(A,13
2 DO>CLASS-2
2 DO<CLASS+2
2 DO<CLASS*4000
2 CO+" "+N$(H(C,1
2 CHS=L(A,FIRST)
2 );" FURLONGS"
2 ),V)="1"):
2 )*(S(H(NO,1
2 (S(H(HORSE,1
2 (F(THIRD,1
2 (F(SECOND,1
2 (F(FIRST,1
2 ((S(H(NO,1
2 ((MON-SMON)*.3
2 ''"NOW ";S(H(HO,1
2 "which one ? (enter 1
2 "Enter new name"'
2 `";L(A,13
1 r$(l(a,dis),1
1 mon=mon-50
1 meeting=h(8
1 g `
1 do>CLASS-2
1 do<CLASS+2
1 dis=first:
1 day (only horses which have won a race from their last six will be accepted)."
1 class*4000
1 a;" ";T$(A):
1 a$=A$+a$+a$:
1 a$="SAVE 0645"
1 Z$="THIRD "+N$(L(A,THIRD))+" "
1 YOUR HORSE JUST WON THE DERBY !!
1 YOU LOST MONEY THIS SEASON
1 Y$="SECOND "+N$(L(A,SECOND))+" ":
1 X=NO.OF HORSES
1 X$=X$+"GS"
1 X$=X$+"GF"
1 X$="MTG. "+
1 WINNERS DAY
1 W$="FIRST "+N$(L(A,FIRST))+" ":
1 URGENT MESSAGE
1 The next meeting number is "
1 TRAINER :";T$(T,
1 TOTAL=TOTAL+H(A,3
1 TOTAL=TOTAL+F(B,1
1 THIRD PLACED PRIZE MONEY
1 THIRD POP MUSIC 3/2X
1 THE WINNER IS
1 STEWARDS ENQUIRY
1 STAKE>5000
1 SKILL=SKILL+1
1 SECOND PLACED PRIZE MONEY
1 SECOND CORNISH PIE 1/2Z
1 R$(L(A,THIRD),7
1 R$(L(A,THIRD),1
1 R$(L(A,SECOND),7
1 R$(L(A,SECOND),1
1 R$(L(A,FIRST),7
1 R$(L(A,FIRST),1
1 R$(L(A,C),1
1 R$(A)="/"+R$(A,1
1 R$(A)=" 0"
1 QUALIFIER FIT S DIST/GOING
1 QUALIFIER FIT DIST/GOING
1 PRIZE MONEY=PRIZE MONEY+L(A,13
1 PRIZE MONEY=0
1 PRESS 0 TO LINE PRINT RESULT
1 P=STAKE*(F(BHO,1
1 NO QUALIFIERS IN YOUR STABLES
1 MON=MON-H(NO,3
1 MON=MON-EX:
1 MON=MON-90
1 MON=MON-700
1 MON=MON-470
1 MON=MON-250
1 MON=MON-220
1 MON=MON+H(NO,3
1 MON=MON+GAMB+PRIZE MONEY-ENTRY FEES-
1 MON=100000
1 MEETING=MEETING+1
1 MEETING=30
1 LOVELOST WYELEA COSTALOTTA ROSY LEE SOBA RENE'S PET DRUMROAN BLUE SWAN WHITE DOVE SPRINGY ROB ROY WINTER SUN PEACETIME DUST STORM GAMBLING LAD ICE STREAM DIRTY DUCK CAKE WALKER RUN FREE NOBLE PRINCE WESTERN NEWS BLACK PIGEON SWEETPEA HALEY'S COMETRAGAMUFFIN SPRINGTIME BEANSMEANS CORNFLAKE WESTWARD HO! DRAGON PALACETHE BOXER BREADWINNNER WHISKY MAC BELLRINGER SMART BOMB FLASHY MOTOR DON'T PANIC VIDEO KING WACKY WAITER KEYSTONE COP SPLURGE DOUBLET EL STING BEE HIVE ROLLERBALL MUMMYS PET FRENCH FRIAR THE WALL TWO TON TESS BOBBY'S DREAMDOPEY GO COME ON DAD MYSTIC MULE ARABIAN NIGHTHERCULES TIMEKEEPER GATEWAY I ROBOT DIAL A DISC HIGH WIRE SPARK PLUG INTERFACE INDIAN JOE GREENPEACE HALF A CROWN JILLS' PONY WAVELENGTH CUTTING EDGE MOONDANCER ROUND TRIP HILL OF SLANEWISHING WELL X RATED TAX DODGE MOST CUNNING BEDBUG SNAKE BITE THE DOLPHIN FLASHBAC
1 LOSERS DAY
1 LOADMAST '
1 L(A,CX)=B:
1 Header p
1 H.CECIL 50000 L.PIGGOTTW.HERN 40000 W.CARSON P.WALWYN 30000 P.EDDERY F.DURR 20000 J.MERCER
1 GAMBLING BALANCE `
1 GAMB=GAMB-STAKE:
1 GAMB=GAMB+P
1 FIRST THE DOLPHIN 1/2Y
1 ENTRY FEES=ENTRY FEES+CLASS*125
1 ENTRY FEES=0
1 E=E+(R$(h(c,1
1 E=E+(R$(H(C,1
1 E=E+(R$(B,V)="1"):
1 DO NOT RECORD THE HEADER
1 DISQUALIFIED
1 Created with Ramsoft MakeTZX
1 CONGRATULATIONS
1 CLASS=(A*3
1 CHS=L(A,THIRD)
1 CHS=L(A,SECOND)
1 ;x;" ";t$(x,19
1 ;x;" ";t$(x,
1 ;meeting +1
1 ;R$(L(A,B),
1 ;N$(L(A,HO));" SELECTED","ODDS ARE :";
1 ;C;" ";N$(L(A,C)),:
1 ;;N$(H(NO,1
1 ;,,,,,,,,,,,,,,,,,,,,
1 ;"` = VALUES # = LIST + = EXIT":
1 ;"YOU BACKED THE WINNER":
1 ;"YOU ARE OFFERED THIS HORSE "'"DO YOU WANT HIM? "
1 ;"TRAINER FEE
1 ;"T CHANGE TRAINER"
1 ;"SELECT SKILL LEVEL"
1 ;"SALE PRICE `";H(NO,3
1 ;"Racing Manager";
1 ;"R ENTER RACES"
1 ;"Q ALTER NAMES"
1 ;"Please wait"
1 ;"PRESS TO"
1 ;"MONEY LEFT `";MON-EX;
1 ;"Loading racing";
1 ;"K LIST HORSES"
1 ;"HORSE NAME S FORM ODDS"
1 ;"GOING IS ";:
1 ;"FURLONG ";F:
1 ;"FOR HORSES WITH A SPEED FACTOR BETWEEN ";CLASS-2
1 ;"F LIST FIXTURES"
1 ;"ENTER HORSE NUMBER OR 99"
1 ;"DISTANCE ";L(A,12
1 ;"C REPORT FINANCES"
1 ;"Author : Mark Alexander."
1 ;"9 SAVE GAME"
1 ;"8 LOAD GAME"
1 ;"0 = COPY: ANY TO CONTINUE"
1 ;" AND `";CLASS*4000
1 ;" ":
1 99 to load a saved game ";
1 -T-(SKILL/3
1 --- RESULT STANDS ---
1 *a)+((r$(c,2
1 )=S(L(A,SECOND),3
1 )=(TOTAL/F(B,1
1 )="D")*400
1 )="3")*100
1 )="2")*200
1 )="1")*300
1 )="1")*100
1 )="0"+R$(L(A,C),1
1 )<CLASS*4000
1 );" FURLONGS";:
1 );" FURLONGS":
1 );" ";s(h(a,1
1 );" ";a$(Z*2
1 )*(S(H(A,1
1 ));B;" ";N$(L(A,B));
1 ));" SOLD FOR `";H(NO,3
1 ));" RUNNING"
1 ));" ACCEPTED"'"ENTRY FEE IS `";CLASS*125
1 ));" ";H(A,3
1 ))+"% S="+
1 ))+"% FIT "+
1 )'"NOW HAVE `";:
1 (S(L(A,B),1
1 (R$(L(A,THIRD),7
1 (R$(L(A,SECOND),7
1 (R$(L(A,FIRST),7
1 (MON/((smon/100
1 (GOING-S(c,4
1 (D(SECOND,1
1 (D(FIRST,1
1 ((RTE+WHAT)/SEA):
1 ("WHICH HORSE DO YOU WISH TO BACK?enter 1 to ";x);
1 '''"SAVE GAME SELECTED"''"INPUT 99 TO CONTINUE":
1 '''" PRESS TO"''" T Alter TRAINER name"''" J Alter JOCKEY name"''" H Alter HORSE name"''" K List HORSE names"''" X TO EXIT"
1 ''"SEASON :- ";SEA
1 ''"S = SPEED RATING"'"F = FITNESS %"'"D = BEST DISTANCE"'"G = PREFFERED GOING"
1 ''"Old name : ";t$(ho,19
1 ''"Old name : ";t$(ho,
1 ''"INVALID ENTRY":
1 ''"Horse name not found try again":
1 ''"ENTRY FEES `";ENTRY FEES'"PRIZE MONEY `";PRIZE MONEY
1 ''"CREDITORS MEETING IS THE LAST STRAW"''"YOU DO THE HONOURABLE THING."
1 ''"CASH BEFORE RACING `";MON
1 ''"ALL ENTRIES FOR THIS MEETING NOW ACCEPTED"
1 ''"1 (learner) TO 9 (mastermind)"
1 ''" TRAINING REPORT FOR"'" ";N$(H(HORSE,1
1 '"WEEKLY BALANCE `";MON-X
1 '"TOTAL ENTRY FEES :`";ENTRY FEES:
1 '"THIS HORSE IS ";S(H(HORSE,1
1 '"TAPE LOADING ERROR"'"REWIND AND START AGAIN":
1 '"STABLE JOCKEY :";T$(T,18
1 '"RACE VOID. INSUFFICIENT ENTRY.":
1 '"RACE :";A;"
1 '"Meeting number 25 is
1 '"MANAGERIAL RATING ";
1 '"FINANCE NOW `";MON
1 '"FEES ARE PER HORSE PER SEASON"
1 '"Every seventh meeting is
1 '"Every ninth meeting is LOSERS day (only horses which have never won prize money qualify)."
1 '"DO YOU WISH TO ENTER HIM FOR THERACE ? (Y/N)"
1 '"CONCERNING ";
1 '"CASH REMAINING `";MON
1 '"All meetings except the DERBY are classed in speed factors."
1 '"ALL SPEED FACTORS ARE CALCULATEDON THE SUCCESS OF THE HORSE LASTSEASON. PRIZE MONEY APPLIES ONLYTO THE CURRENT SEASON."
1 '": VALUE `";L(A,13
1 "new name is ";a$,
1 "` ";STAKE
1 "YOU WON `";P:
1 "WHILST TRAINING TODAY THE ANIMALWAS SEEN TO BE MISSING A STRIDE.UPON EXAMINATION A PULLED TENDONWAS FOUND."''"HORSE NOW 40% FIT":
1 "WHICH HORSE TO SELL? (1
1 "TRAINING FEE `";
1 "THIS HORSE SPRAINED A LIGAMENT ON THE MORNING GALLOPS":
1 "THIS HORSE IS SUFFERING WITH A TUMMY BUG"''"NOW ONLY 72% FIT":
1 "THIS HORSE INJURED HIMSELF WHILEKICKING MY NEW ROLLS"'"PANEL BEATERS AND RESPRAY `700"''"NOW ONLY 65% FIT":
1 "THIS HORSE HAS THROWN A SHOE":
1 "THIS HORSE HAS A COUGH"''"CALL OUT VET (NIGHT CALL) SUPPLYDRUGS AND HEATED STABLES `250"''"NOW ONLY 45% FIT":
1 "THIS HORSE HAS A CHILL"''"CALL OUT VET EXAMINE AND SUPPLY DRUGS AND HEATED STABLES `220"''"NOW ONLY 55% FIT":
1 "THIS ANIMAL HAS CONTRACTED EQUINE FLU."''"VETERINARY CHARGE `90"'"FITNESS NOW 60%":
1 "THE GAME IS SAVED IN FIVE PARTS"
1 "TAX MAN TAKES 30% OF YOUR PROFIT"'"STARTED WITH `";SMON'"ENDED WITH `";MON'"30 % TAX = ";
1 "Start tape":
1 "RE-REGISTRATION FEE `50":
1 "PRIZE MONEY `";L(A,13
1 "PLEASE WAIT WHILST RACE IS RUN":
1 "PICK YOUR TRAINER"''"TRAINER ` FEE STABLE JOCKEY":
1 "Name too long (Max. 8
1 "Name too long (Max. 10
1 "Name Too long (Max. 13
1 "NAME S F FORM D G"
1 "MEETING NUMBER ";MEETING;" RACE NUMBER ";A'"GOING :- ";:
1 "LOAD GAME SELECTED"
1 "I THINK THIS HORSE HAS VERY GOODDERBY PROSPECTS :";T$(T,
1 "I DON'T THINK THIS HORSE WOULD WIN A DONKEY DERBY :";T$(T,
1 "HOW MUCH ? (10-5000)";
1 "HORSES IN TRAINING `VAL `PRIZE":
1 "HIS SPEED FACTOR IS ";
1 "HIS BEST DISTANCE IS ";S(H(HORSE,1
1 "HE PREFERS ";:
1 "GOODBYE!":
1 "GOOD TO SOFT ";
1 "GOOD TO FIRM ";
1 "FOR HORSES THAT HAVE WON BETWEEN`";CLASS*4000
1 "FOR HORSES THAT HAVE NOT WON PRIZE MONEY AND WITH A SPEED FACTOR BETWEEN ";CLASS-2
1 "Enter the horse name you wish toalter ";
1 "ENTER THE NEW NAME"'
1 "ENTER 99 TO CONTINUE";
1 "DO YOU WANT TO SELL A HORSE ?";
1 "CURRENT FORM - ";R$(H(HORSE,1
1 "CHOICE ? ENTER 0 IF NO ENTRY";
1 "CASH IN HAND `";MON'"TOTAL LIVESTOCK `";TOTAL'"
1 "Any key to hold listing":
1 "ALL HORSES":
1 "ALL HORSES IN OUR STABLES HAVE CONTRACTED A VIRUS. THE VET SAYSTHAT IT IS NOT SERIOUS BUT OUR TRAINING SCHEDULE HAS BEEN BADLYAFFECTED."''"ALL HORSES NOW ONLY 50% FIT"'"VETERINARY FEES `360"'"SPECIAL CARE CHARGES `580"''"50 % OF THESE CHARGES HAVE BEEN UNDERTAKEN BY OURSELVES.":
1 " END OF RACING SEASON"
1 " TURF ACCOUNTANT"
1 WITH A SPEED FACTOR BETWEEN ";CLASS-2
1 VIRGIN GAMES 1983";
1 TO WATCH WHOLE RACE OR ANY KEY TO SEE THE FINAL FURLONGDISTANCE IS ";l(a,12
1 M.ALEXANDER
1 LEVEL ";SKILL
1 FROM STABLES
1 To qualify for the DERBY a horsemust win more than `80000 in prize money. Other races this day are classed by prize money."
1 :VALUE `";a*4000
1 ***","FOR HORSES THAT HAVE WON MORE THAN `80000 THIS SEASON."
1 END OF RACE REPORT
1 DISTANCE :";L(A,12
1 ANY TO CONTINUE":
1